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1.0.  INTRODUCTION  SlnS 

Chief,  Teohnioal  Information  Division 

Database  management  systems  have  historically  been  the  domain 


of  large  mainframes.  However,  the  popularity  of  mini  and  micro¬ 
computers  has  spurred  the  development  of  database  systems 
appropriate  for  those  devices.  Concurrently,  database  systems 
design  is  turning  away  from  traditional  heirarchic  and  CODASYL 
models  to  embrace  the  conceptually  simpler  relational  database 
approach  (1,2, 3, 4,). 

The  relational  database  approach  views  data  as  being  in  tables. 

The  entries  form  the  rows  and  are  called  tuples.  The  columns  are 
called  attributes.  Simple  selection  commands  are  provided  to  search 
for  entries  with  attributes  of  a  given  value.  Other  commands  allow 
the  extraction  of  a  subset  of  entries  (found  by  the  selection  commands) 
and  the  incorporation  of  that  subset  with  others.  This  approach 
is  not  as  efficient  as  the  traditional  model  in  its  implementation 
but  offers  far  greater  flexibility  in  the  incorporation  of  data 
and  the  ability  to  "explore"  the  data  base. 

This  report  documents  the  attempt  to  develop  a  relational 
database  management  system  for  the  Harris  Minicomputer  at  Florida 
ASM  University. 

2.0  SYSTEM  DESIGN 

It  is  Tiusual  for  the  design  of  database  management  systems  to 
be  described  in  detail.  Therefore,  the  description  of  RISS,  a 
relational  database  management  system  for  minicomputers ( 5 ) ,  seemed 
a  most  fortuitous  occurrence.  The  system  development  strategy  was 
to  translate  RISS  to  the  Harris  computer  and  then  augment  its 
capabilities  in  accordance  with  the  original  project  proposal. 
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2.1  RISS:  RELATIONAL  INQUIRY  AND  STORAGE  SYSTEM 

RISS  was  developed  at  the  forest  Hospital  in  Des  Plaines, 
Illinois  and  implemented  on  a  PDF  11/40  with  the  RSTS/E  operating 
system.  Data  can  be  retrieved  from  RISS  by  human  interaction 
from  a  terminal  (called  the  naive-user  interfaced  level)  or  by 
requests  from  a  computer  program  (called  the  applications  program 
interface  level) . 

The  conversion  effort  focussed  solely  on  the  properties  of 
the  naive  user  interface  level.  Three  subsystems  provide  the 
pathway  for  a  human  user  to  access  a  RISS  database  a  relational 
editor,  a  retrieval  package  and  a  database  manipulation  and 
maintenance  package.  They  are  described  below; 

A.  Relational  editor 

The  editor  is  needed  to  create,  examine  and  update 
entries  in  the  database.  The  editor  design  is  based 
on  at  line-oriented  text  edition.  Thus,  there  is  a- 
record  pointer  which  identifies  the  entry  to  be 
entered,  examined  or  changed.  The  editor  commands 
implemented  in  RISS  are: 

1.  move  the  record  pointer  forward  in  backward  through 
the  existing  entries 

2.  search  for  a  specified  substring  in  the  database 
and  move  the  record  pointer  to  the  next  occurrence 
of  that  substring. 

3.  delete  one  or  more  entries  from  the  database. 

4.  enter  a  new  entry  in  the  database. 

5.  display  or  change  the  value  of  a  field  (attribute) 
of  an  existing  entry. 

6.  provide  descriptive  information  about  a  given  set 
of  entries  (relation)  in  the  database. 

B.  Retrieval  Package 

The  retrieval  commands  allow  the  user  to  retrieve  and 
analyze  data  in  RISS  relations: 

1.  selection  of  entries  which  satisfy  a  given  attribute 
specification  Ci.e.  ,  Sex  =  "male','  Age  -  18)  and 
the  formation  of  a  resulting  relation 
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2 .  formation  of  the  union  or  intersection  of  relations , 
including  relations  formed  by  the  proceding  command 

3.  extraction  of  a  subset  of  columns  (attributes)  of  a 
.relation 

4.  Printing  tabular  reports  based  on  a  retrieved  relation 

5.  Printing  simple  statistical  information 

6 .  grouping  specific  attribute  values  into  user-specified 
ranges 

7 .  producing  a  frequency  distribution  for  all  unique  values 
of  a  given  attribute. 

c.  Database  manipulation  and  maintenance  package 

The  database  manipulation  and  maintenance  package  provide  the 
usual  utility  functions  associated  with  database  management : 

1.  creating  a  relation  (a  set  of  related  entries  in 
database) 

2.  deleting  a  relation 

3.  copying  a  relation 

4.  sorting  a  relation 

5.  merging  two  relations 

6.  combining  two  relations 

7.  redefining  the  structure  of  a  relation 

by  adding  or  deleting  a  column  (attribute) 

3.0  SYSTEM  IMPLEMENTATION 

The  initial  implementation  strategy  was  to  copy  all  routines 
from  the  RTSS  text  into  the  Harris  computer.  It  was  thought  that 
the  differences  in  the  BASIC  language  between  the  two  systems 
would  be  minor.  This  proved  not  to  be  the  case. 

The  implementation  of  BASIC  on  the  two  computers  differs 
significantly.  Furthermore,  closer  investigation  revealed 
that  the  RISS  data  structure  design  incorporated  fundamental 
features  of  the  PDP-11/40.  In  other  words,  to  use  the  RISS  code 
directly  would  entail  the  emulation  of  PDP-11/40  features  on  the 
Harris  minicomputer.  To  compound  the  problem  to  the  breaking 
point,  at  this  time  the  air  conditioning  system  of  the  Harris 
minicomputer  broke  down  and  remained  inoperative  for  several  weeks 
This  exclude  computer  use  during  the  time  although  program  develop 
ment  was  possible. 
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In  light  of  the  problems  discussed  above,  it  was  decided  to 
re-design  the  FAMU  Relational  Database  system  (FREDB)  using  RISS 
as  a  guide  but  exploiting  the  features  of  the  Harris  minicomputer. 
The  central  core  of  the  re-design  was  to  abandon  the  RISS  data 
structure . 

The  RISS  data  structure  allowed  for  storage  of  four  types  of 
data  -  single  ASCII  characters,  integers,  floating  -  point  numbers 
and  alphanumeric  character  strings.  Three  files  or  tables  were 
used  for  storage  and  descriptions  -  a  tuple  (entry)  descriptor 
table,  a  tuple  file  and  an  alpha  data  file.  Without  going  into 
a  detailed  description  of  the  process,  suffice  it  to  say  that  the 
storage  structure  was  based  very  closely  on  the  actual  storage 
format  of  the  PDP-11/40. 

Upon  reconsideration  of  the  design, questions  began  to  arise 
as  to  the  need  for  a  relational  editor .  The  reasoning  was  that  on 
edition  already  existed  in  the  Harris  operating  system.  It  could 
be  used  for  all  of  the  functions  of  the  RISS  relational  editor. 
However,  the  use  of  the  Harris  line  editor  implied  the  use  of  the 
Harris  storage  strategy.  Hence,  one  simplification  led  to 
another.  FREDB  has  no  provision  for  relational  editing.  The 
system  recognizes  the  equivalence  of  flat  files  and  relations. 
Therefore,  the  user  enters,  modifies  and  deletes  all  data  using 
existing  Harris  editing  procedures.  The  relations  are  then 
described  in  FREDB  and  those  field  (attribute)  descriptions  form  a 
pathway  for  FREDB  routine  to  access  user-created  files.  The 
adoption  of  this  approach  led  to  the  development  of  an  initial 
system  with  many  of  the  features  of  RISS. 
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4.0.  The  FREDB  System 

The  actual  implementation  consists  of  a  method  to  define  and 
create  relations.  Additional  procedures  to  join  and  select  rela¬ 
tions  were  attempted  but  not  completed.  The  computer  programs  for 
relation  definition  and  definition  (called  CREREL)  are  given  in 
Appendix  1 . 
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—6600 - PRINT  <10 - 

6700  PRINT  *10  TAB(7);"01  OT-REC," 

6800  ELSE 

_69-a0— - 1F._FI  a  2-00 _  _ 

7000  PRINT  *10 

7100  PRINT  *10  TABC7)>"SO  SORT-FILE" 

__T240 - PRINT  *10  TA8(44  )-7-"OATA-REX-OftD..l&^-60a-Ti»REJLr-"- 

7300  PRINT  *10 

7000  PRINT  *10  TAa(7)l"01  SORT-REC," 

__T500 - ELSE - -  - - - 

7600  OOENO 

7700  OOENO 


7900  PRINT  *40  TAB ( 1 9 ) ;FILES ( 3) ; TAB (22) 7 KE YS 
8000  STOP 

8150  INPUT  *20  ATT 
8160  FOR  P  a  I  TO  ATT 

Sm  INPUT- *20  LABLS(P) - 

8180  INPUT  *20  BEG(P) 

8190  INPUT  *20  ENOOCP) 

620-0-N£x:T-P - 

8300  FILES(I)  a  "IN-" 

8400  FILE$(2)  a  "0T-" 

»SOO  F-IL£S(3)-  a  '^ST«J - 

8510  PRINT 
8520  PRINT 

6600  PR.INT-.-!Lwh ;CH-IC£-r (S)- IN  ";-lNflELS;"  00-YOU-»Afi.T— Ti<£-  F ILE-  TLL"^-> - 

"  BE  30RTE0  ON" 

8700  INPUT  "TYPE  IN  THE  FIELD  NAME(S)  ";KEYS 

6000-PE-WRN - 

8900  FIL  a  BEG(P)  -  START 
9000  IF  FIL  >  0  00 

9100  PRINT  *10  TABCll);"05  F IL" 7 T A8 (50 ) 7 " P I C  X("7 
9105  IF  FIL  <  10  DO 


aiO  ") 


9200  ELSE 
9'^00  OOENO 
9a00  RETURN 
RflOO  END 


ERE 


- - 

KENNTH  MCCRAY 
ARTHUR  ROBERTS 

THE  CREREL  RELATION  HAS  CREATED  TO  SERVE  AS  A  DATA  ENTRY  SYSTEM 

^OR-FRED«, — -THE  V ERS I-T I L I T Y  OF-  T H I -STST EM  HI LL-M.LOH-THE~U^R TtT 

HAVE  A  MAXIMUM  RECORD  SIZE  OF  9<JR  CHARACTERS,  THE  DATA  FOR  THIS 
SYSTEM  MAYBE  ENTERED  IN  ANY  OF  THE  THREE  (5)  HAYS  LISTED  BELOW, 

1),  IF  THE  FILE  ALREADY  EXIST  IT  CAN  BE  ADDED  TO  THE  INDEXLOG 
BY  DEFINING  THE  RELATION  NAME  AMD  ATTRIBUTES  USING  CREREL, 


2) ,  DATA  CAN  BE  ADDED  AT  THE  SAME  TIME  THE  RELATION  NAME 

AND  THE  ATTRIBUTES  ARE  DEFINED, 

3) ,  DATA  CAN  AL3C  BE  ADDED  TO  THE  FILE  AT  A  LATER  DATE, 

i _ 

THIS  IS  A  SERIES  OF  ENTER  ACTIVE  COBOL  PROGRAMS  WHICH  WILL  PROMPT 
- THE - USER-FOR - ^tH€_FOLLGH-I^4C-iNFORMAT4CN,-  Ta-CftEA4E-A-  HELAT.IOAL, - : - 


NAME -OF-  RELATlQAt-TO  BE-CREAT ED^ 


THIS  NAME  CAN  NOT  BE  OVER  8  CHARACTERS  LONG  AND  IT  SHOULD  NOT 
CONTAIN  ANY  SPECIAL  CHARACTERS  (SX&-s  ?l23a). 


2),  NUMBER  OF  ATTRIBUTES  THE  RELATION  IS  TO  CONTAIN, 

THIS  NUMBER  CAN  NOT  EXCEED  3a, 

******  THE  FOLLOWING  INFORMATION  WILL  APPEAR  ****** 
******  FCR  ever  ATTRIBUTE  THAT  IS  REQUESTED  ****** 


3),  NAME  OF  ATTRIBUTE, 

THIS  NAME  CAN  NOT  EXCEED  20  CHARACTERS, 


3,1),  WHEN  THE  LETTER  'B'  IS  TYPED  IN  FOR  THE  ATTRIBUTE  NAME  IN 

IN  THE  ATTRIBUTE  LENGTH  FIELD  TYPE  THE  NUMBER  OF  SPACES  THAT 
- IjL-TQ-Bfc-PlrACEIU&£THEEAt-TH€--AT-TJtlBUT£S, - 


THIS  WILL  NOT  COUNT  AS  A  ATTRIBUTE, 


a),  length  of  ATTRIBUTE, 

- THE-MAXIMUM  length  OF  THE  ATTRIBUTE, 


■  -THi-gM.;  I R£- Ti-M  -I S  t-gO-TOOE  THER  BY-  JClnr- 


FILENAME 


PURPOSE 


I 


- 4;E4RL - GET- A  RELATION-  - - -  CREATEl - 

EOF.. 


I 


SMS 

SMO  BSS999 


-BBfcK- 


SJO  H  IHELP 
SJO  0  iOESCRP 

SPR - 

SPR 

SPR 


A 


WELCOME  TO 


- - 

f  PR 

SPR  FFFFFFFFFF 
SPR  F 

RRRRRRRRR 
a  o 

DOODDOODO 
n  _  .  n 

SPR  F 

R 

R 

D 

0 

B 

SPR  F 

R 

R 

EEEEEE  0 

D 

B 

- SPR  FFFPfF - 

■RRRRRRRRR - 

— € - E - 9 - 

- D— 

—0 - : 

SPR  F 
SPR  F 
-SPR-F- 
SPR  F 
SPR 

-BPR - 


R  RR  EEEEEEE 
R  RR  E 

-R - RR-  — £ - 


RR 


EEEEEE 


0 

0 

-0 — - E 

OOOOUOODD 


0 

D 


BBBBBBB 
0  B 

-R - 


BBBBBBB 


SPR 

SPR 

-4PR- 


FAMU  relational  DATABASE 


SPR 

SPR  NOTE: 
-SRR - 


TO  GET  A  LIST  OF  THE  AVAILABLE  MODULES  IN  THE  'FREDB* 
SYSTEM,  T-YPE  -INt- 


SPR 

62 

-SME- 


FREDB.H 


IHELP 


SPR 

SPR 

-SRR- 


7HESE  ARE  THE  ONLY  AVAILABLE  MODULES  IN  TH£  'FREOB'  SYSTEM, 


SPR 

SPR 

-4PR 

SPR 

SPR 

-SPR- 


CREREL 

COPREL 

-SORREL- 

OELREL 


EDREL 

COLREL 

-MERREL- 

RETREL 


-I 


SPR 

SPR 

-SPR- 


NOTE:  IF  YOU  WISH  TO  GET  A  DESCRIPTION  OF  EACH  MODULE,  TYPE' 

- FRE£>R,0 - - 


4RESCPP- 


82 

SME 

-SPP- 


SPR  CREREL  (RELATION 
SPR  RELATION, 

-*PR - OF-A-T^fl 

SPR  ALLOWS  THE 

SPR 


CREATOR);  THIS  MODULE  ENABLES  CREATION  OF  A  'FREDB' 

THE  USER  SPECIFIES  THE  NAME  OF  THE  RELATION,  THE  NUMBER 
AND  TR 1 0U  T£  -R AMtS, — -THI S  -  MQOUL  E-  ALS( 

USER  TO  INPUT  TUPLES  INTO  THE  RELATION. 


SPR  DELETE,  AND  INSERT  TUPLES  (ROWS)  IN  THE  RELATION. 

SPR 

-^B_-C£)PR£L-4P4L A«OR-COP lER-Vt—  T^ME  -RELATION-COP UR  MOUWCE^AU^OwS-A-^ 

SPR  MAKE  AN  EXACT  COPY  OF  AN  EXISTING  RELATION  INTO  A  NON-EXiSTING  REL^ 


SPR 

SPR  C&LPfe4-(-C()WUMN  SPECIFICATION  MQ0Ui€R4l - THIS  M0OULE-AL-LQ*S- A- USER  -  TO - 

SPR  DELETE  ATTRIBUTES  FROM  A  RELATION, 

SPR 

SPR  SORREL  (RELATION  SORTER):  THIS  MODULE  ALLOWS  A  USER  TO  SORT  THE  TUPLES 
SPR,  A  RELATION  BASED  ON  THE  CONTENTS  OF  SOME  SPECIFIED  ATTRIBUTE  IN  THI 

_ nCl  A  T  THM _ 


SMS 

SFREE  ALL 


!BE6IN 


lERR 


ICQNT 


iINDEX 


IRESTA 


IERR2 


1ERR3 

tNEXT5 


I  gMft 


*StK - 

SRR.SNR 
SMO  BSSRR9 

SPR 

$PR  INPUT  THE  NAME  OF  THE  RELATION  hHICH  YOU  SHOULD  LIKE  DELETED? 

-SBR-.I  •NME - 

SPR 

SPR  #NME  IS  the  RELATION  IN  WHICH  YOU  WOULD  LIKE  DELETED?  (Y/N) 


-SSRrFfYANB - - -  - 

SIF,(«ANSsN)  SJU  IBEGIN 
SJE  lERR 

-WfT4#AH^»Y->-WU-i-GGHT - 

SPR 

SPR  PLEASE  TYPE  IN  'Y*  OR  'N*... 

WU-1  RESTAR  -  -  -  -  - - 

SEL  «NME 

SJE. K, 312, iERR3 

-SJE-lERRl - 

SPR 

SJU  IINOEX 

_*PR - -  - - - - - - 

SPR  «NME  IS  AN  NON-EXISTING  RELATION 
SPR 

-SPR- WOULD -YOU-  LI-KE  -TQ-  0€4.ET^E-  ANOTHER-RE4ATION?— (  - 

SJU  IRESTA 
SMO  RE 

-SEO^- IRDtXLOG- -  - - 

SAE,1-8,FNME 
SOE  0 

- 

SMO  AB 
SPR 

-SFREE  AL4 -  - - - 

SPR  iNME  HAS  BEEN  DELETED 
SPR 

-SRR  WOULO-4tOU-L IKE-TO  DELETE  AROT-HER-RE-LA-TIQN?  -^Y/NJ - 

SSR.I  FANSl 

SIF,  (DIANSlsN)  SJU  lENO 

SJE  IERfl2 _ _ 

SIF, (FANSlsY)  SJU  1BE6IN 
SPR 

-SRR  PLEASE  TYPO  IN  <Y*  OR  - 

SJU  IRESTA 
SJE  JNEXT3 

_^RR - 

SPR  «NME  IS  AN  INVALID  RELATION  NAME; 

SPR  1)  NAME  HAS  MORE  THAN  B  CHARACTERS 

-SRR - 2)  FIRST -CHARACTER.  IN  THE  NAME  IS  A  -NjjMBEft 

SPR  3)  NAME  HAS  AN  INVALID  CHARACTER, 

SPR 

-4PR-SRY-  AGAIN,  ,, - 

SPR 

SJU  IBEGIN 

_ _ _ _ _ _ _ _ _ 


4 


j 

; 


- - — 

SFR  ALL 

$  **A*******A*******tkA**A*********A********A*A*A 

S  *  GETRLlI  18  THE  L I^K-M00UL&-f^&M-A-CQ60L - * - 

S  *  PROGRAM  THAT  SEARCHES  FOR  A  RELATION 

S  *  assignments  are  made  INTERACTIVE  TO  THE  * 

$—<i-SAME  FIi.E-  4f*-TKE  COBOL  PROGRAM -<  TREt  > -  *- -  - 

S  *  GOMIT::  IS  THE  EXECUTABLE  LINK  MODULE  OF  A  * 

$  *  COBOL  program  <TREL>  THAT  RETRIEVES* 


$  ********************************************** 

GETRL  i 

4AS-^0-=-GUTF-TLE - — - - - — j 

SSR.F  ARRR  =  20  ■! 

SJE  INOREC  ^ 

SF4^-ALL - - 

SAS  20  =  #RRR 
GOMIT 

4JU - LNORfeC - - 

INOREC  SSS 

]  ********************************************** 

- _j 

SPR  WOULD  YOU  LIKE  TO  TRY  AGAIN 
SSR.I  ARES 

4.I^  <_#R&S-3--Y— )-4U- IBEGIN - - - - - 

BBLK 

B2 


13TOP  SSS 

SPR  ****  THIS  IS  THE  END  OF  THE  PETREL  RELATION  **** 

- 

SPR 

SPR 


SMS 

BBLK 

-fEPR-^SS- 


SRR.SRN 

SPR 

-SPR - 


SPR 

SPR 

-SRR- 


************************************************* 

♦* - - —  —  .  -  **- 

**  WELCOME  TO  COLWEL  ** 

**  ** 


SPR 

SPR 

-SPR- 


SPR  THIS  COLREL  MODULE  ALLOWS  YOU  THE  USER 
SPR  TO  DELETE  ATTRIBUTES  (COLUMNS)  FROM  AN 


SPR 

SPR 

— T0~0ELETE--A-C0LUMN  FROM  A- RELATION  THE 
SPR  RELATION  NAME  AND  ATTRIBUTE  NAME  MUST 
SPR  BE  TYPED  IN  WHERE  SPECIFIED  IN  THE  MODULE, 

- 

SPR 

SPR 

- 


SPR  PLEASE  INPUT  THE  RELATION  NAME> 
SSR.I  «N 

-«IR - 


SPR 

SPR 

-SPR_tS-THI3-THE-CQRRtC-T-RELATI0N  -NAME-  *N  ?- 


SPR 
SPR 
-SRR- 
SSR. 

SJE 
-S-IF- 
JU  1 
ICON 
SAS  IQsINPUT 


I  «R 
lERR 

CARaY  )-^_iCON- 
ERR 

AS  20s«N 


I-  OR— <At  j— FOR— CNQ 


SPR.F, 10» AN 
COBOL  I  "C0L2" 


EL  AN 

RN  OUTREL  AN 

OC-  OUT  RE  L - 

SME 


SMS 

S9R.SRN 


SMQ  NREGsSO 
SSR.S  ORESsNULL 

- H.  Ae-1-  - 

SPR 

SPR 

- tPP - ^ - 

SPR 

SPR 

- SPR-€f^ER - - 

SSR.N  «N:0 
SSR.I  #N 


WHICH  FUNCTION  aQijLO  YOU  LIKE  TO  PERFORM 
n  CREATE  A  NEW  RELATION 

a)  WRITE-1N4<3-A  -€-)t-TET^ TN&-ft€ t - 

3J  NO  OPERATION 


SIF  (  #N  =  I  )  SJU  ICRLN 

SIF  (  AN  s  2  )  SJU  ICRLO 

- —  SIF  (  AM  »  5  )-  SJU  ISTP  -  -■  -  -  .  . 

SJU  ILABl 

ICRLO  SSS  WRITING  INTO  A  EXISTING  RELATION. 


AS  21=0UTFILE 
SR.F  ARESs2l 

- j€-_I.S-TP - - - - 

CRE2 

SJU  ISTP 

NEwRL 

0BLK 

— ..4J«OR - SPT? - »»OULO-WJU~L-IKE  TO  EI^TER~DATA -INTO  -THE -MEw-  RELA-TIOAi-?- 

SPR  ENTER  (  Y  FOR  YES  OR  N  FOR  NO  ) 

SSR.I  ARES 

- SJ£  .4-NaB - 

SIF  (  ARES  =Y  )  SJU  iOO 

SIF  (  ARES  AYES  )  SJU  JOO 

- VIF-C-  ARES  AM  — )  SJU  ISTP  - -  - - 

SIF  (  ARES  ANQ  )  SJU  ISTP 

SJU  INOR 

- VW3 - CR« - 

ISTP  B2 

SPR  *************  FINISHED  *************** 

- - - SME - - - 

EOF.,  • 


IDENTIFICATION  DIVISION. 
AUTHOR,  ROBERT  SAWYER. 

date-written,  a-1-82, 

T>ATE-C©mP4L£D. -  - - 

ENVIRONMENT  DIVISION, 


CONFIGURATION  SECTION. 
SOURCE-COMPUTER.  HARRIS-125. 
©»,I£C4-CGMP4>t£  B»-HARftI  S»1 2  5  . 

INPUT-OUTPUT  SECTION. 


FILE-CONTROL. 

SELECT  in-file  ASSIGN  TO  "w8". 

- SELECT -QUT-FILE  ASSIGN  TO  "w9", 

SELECT  sort-file  ASSIGN  TO  "SORTING". 


DATA  DIVISION, 

FILE  SECTION. 

FO-XN-FILE - 

DATA  RECORDS  IS  IN-REC, 
01  IN-REC. 


WORKING-STORAGE  SECTION. 


PROCEDURE  DIVISION. 

PAR-SORT 

sort*sort-file  on  ascending  key 

- USING  in-file -  - 

giving  OUT-FILE, 

STOP  RUN, 


all 


sws 

82 


- 

SJE.P  lERRORl 
lERRORl  EL  LR 

— tE  RRQR-2 - - - - - 

JERROR2  SPR  ***  COBCLING  &1  *** 
COBOL  I  &1 

-&2 - 

SPR  **  EXECUTING  &l  ** 

VX 

^2 - ; - - 

SPR  ***  compilation  complete  *** 

SME 


BBLK 


SMS 

1 - 

ILOOPY  SIF  (PA  s  13)  $JU  IRUN 
SSR.N  PA  3  PA  •»>  1 


SJU  ILOOPY 
IRUN  SPR 

^PR - ***■  PILE — T  ED ^nn^-~ 

SEL  LO 
SJE.P  ISTOP 

_ ...  _ _ _ _ _ _ 

:STOP  S  PR 
SME 


■♦ttT - 

SPR 

GETRL 

- - - - - - 

$AS  12  =  OUTFILE 
SSR.F  «FN  s  12 

SJE  INREC - ^ - 

SCO  »FN  W8 
BA.C  I  SORR-B 

BBLK 

SPR 

.4P4? - 

SPR 

SPR  NOW  COMPILING  &  EXECUTING  THE  RELATION 

fPfl -  --  -  -  - 

SPR  THE  terminal  WILL  PAUSE  TEMPORARILY 

SCO  SORR-C  W7 

- 

SIN  28  W2 
SIN  35  W3 

CB2  W7 
CO  WR  KFN 


V 


SMS 

BBLK 

efc^n  Qe^QQQ 


iBEGIN 


SMO  TR 
SRR.SNR 

H^R . .  --  —  -  -  -  - -  - 

SPR  INPUT  THE  NAME  OF  THE  RELATION  WHICH  YOU  vyQULD  LIKE  TO 
$PR  EDIT? 

-»SfH-I  »NHE 


SPR  FNME  IS  THE  RELATION  IN  WHICH  YOU  WOULD  LIKE  TO  EDIT?  (Y/N) 
IRESTAR  SSR.I  «ANS 

- SIFr(#ANSaN)  $JU  IBEGlN  - 

SJE  lERR 

$IF,(«ANS=Y)  SJU^ICONT 

SJU  IRESTAR 
ICONT  SED  ANME 

- SJE-lERRl -  -  - 

SPR 

SPR  WOULD  YCU  LIKE  TO  CHANGE,  DELETE,  OR  INSERT  A  TUPLE? 

1  BFST  A _ SSR_T  lYANS 


lERRl 


SIF, (AANSsCHANGE)  SJU  tCHLN 
SIF, (AANSsDELETE)  SJU  IDELN 

_4lF^^tAANSilNS£fin-4JU  lINLN  . 

SJU  1ERR2 
SPR 


SPR 

SPR  WOULD  YOU  LIKE  TO  EDIT  ANOTHER  RELATION?  (Y/N) 

.tREST - 4SarI-AANS  -  -  . .  .  -  -  - . - 

SIF,(#ANSsr)  SJU  IBEGIN 
SJE  lERl 

- SIF,  (WANSSN)  SJU  lEAtO-l - 


lERl  SPR 

SPR  PLEASE  TYPE  'Y*  OR  'N»,,, 
- 4JU-iReST - 


SPR 

IERR2  SPR 

- sea  PLEASE  TYPE  IN  CHANGE,  DELETE,  OR  INSERL 


SJU  IRESTA 
SPR 


SPR 

SPR  INDICATE  WHI^H  TUPLE  YOU  WOULD  LIKE  TO  CHANGE  BY 

- SPR  giv-ing-ccrresponoinc-line  number? - 

SSR.I  «LNC 
SOI  «NME  ALNC  1 

- SJE-4-CHLN - 

SPR 

SPR 

- SP.«-IS  Tiq-S  TME-TUPLE  THAT  YOU  wOULD-HKE -T.a  CrtANG£4— 

IRESTAl  SSR.I  FANS 

SIF,(«ANSsN)  SJU  ICHLN 

- SJE.  i£RR3- - 

SIF,(FANS»Y)  SJU  ICONTl 
1ERR3  SPR 

- SPR  PLEASE  TYPE  IN  t y  !— QR-l N * . . . - 

SJU  IRESTAl 
SPR 

ICONTl  SPR 

SPR  THIS  IS  THE  TUPLE  THAT  YOU  WOULD  LIKE  TO  CHANGE. 


SPR  WOULD  YOU  LIKE  TO  CHANGE  ANOTHER  TUPLE?  (Y/N) 
iRESTAa  SSR.l  wans 

- M  F  r  f »  AN  S  »  N-)  - 


-iEftRtt 


SJE  1ERR4 

S1F,(«ANS3Y}  SJU  ICHLN 

.  _  .. 

SPR  PLEASE  TYPE  IN  'Y'  OR  'N* 
SJU  1RESTA2 


-H>€L-N- 


-♦FR- 


SPR  INDICATE  WHICH  TUPLE  YOU  WOULD  LIKE  TO  DELETE 
SPR  BY  GIVING  CORRESPONDING  LINE  NUMBER. 

-WR,-I  -#LNa - 


SPR 

$D1  FNME  FLND  1 


SJE  IDELN 


SPR 

SPR 


-SFR-tS-TH4-S-T^H£-TUPL£~  THAT  -YOU  WOULD  LIKE -TO  DELETE?-  (Y/N) 


IRESTA3  SSR.l  FANS 

SIF,(«ANS:N)  SJU  IDELN 


SJE  tERRS 


lERRS 


SIF,(«ANS=Y)  SJU  1CONT2 
SPR 

-SPR  RLE ASE— TYFfc-TN  'Y»- OR— '-N ' 


!C0NT2 


SJU  1RESTA3 
SDE  FLND 


SJE  4ERR6 


SPR 


SPR  TUPLE  FLND  MAS  BEEN  DELETED 


SPR  WOULD  YOU  LIKE  TO  DELETE  ANOTHER  TUPLE?  CY/N) 
1RESTA4  SSR.l  FANS 

SIF»(FANSaN)  JU  lENO - 

SJE  IERR7 

SIF,(FANS5Y)  JU  IDELN  ' 

Ipp _ _ _ 

SPR  FLND  IS  A  NON-EXISTING  TUPLE 
SPR 

SJU  IDELN 
SPR 


SPR  PLEASE  TYPE  'Y*  OR  •N',,, 

SJU  IRESTAtt 

SRR - ^ - - 

iINLN  SEL  WR 
SPR 

- SPR-INOICA-TE  THE  -TUPLE— THAT  -YOU- WOULD  LIKE -TO-INStRT  -A-  NEw - - 

SPR  TUPLE  AFTER  BY  GIVING  THE  CORRESPONDING  LINE  NUMBER. 

SSR.l  FLNI 

- SPR - - 

SDI  FNME  FLNI  1 
SJE  llNLN 

SPR 

SPR  IS  THIS  THE  tuple  THAT  YOU  wANT  TO  INSERT  AFTER?  (Y/N) 

$SR,1  FANS - 

SIF.(FANS3N)  JU 
SJE  1ERR8 
SIF,(FANSaV)  JU 
SPR 


liNLN 

{CONT3 


lERRS 


-I,— .,1,  - -  ■,  ■■  — 

SPH  INPUT  THE  TUPLE(S)  IN  wHICH  YOU  WOULD  LIKE  INSERTED... 


SPR  NOTE! 

-♦PR - POL-tG#~T*<e-X<}RMA4--0F  -  THg-  -TLfPLE— a^SPL  A  Yt-O— TG^ - 

SPR  THE  TERMINAL. 

SPR 

-SPR - - IF  YOU  DESIRE  TO  STOP  INSERTING,  TYPE  'd^-IN - - 

SPR  THE  FIRST  COLUMN, 

SPR 

-SPR - - 

SPR 


SOI  «iNME  PLNI  1 

-{READ - SSPvt-PTUP  -- 

SJE  ICONTUP 

ICONTUP  SIF, (dTUPsi)  SJU  lEXlT 

- S^  ICOfiTP - 

iCONTP  SPR,F,<>,«TUP 

SJE  iCOTUP 

JCGTUP  -  WU-tREAD - 

lEXIT  SIN  «LNI  M9 

SPR 


SPR  WOULD  YOU  LIKE  TO  INSERT  ANOTHER  TUPLE  INTO  THE  RELATION? 
SPR  (Y/N) 

-JRESTA4. — SSR-rl-FAA^S - - -  _  - . . . . 

SIF.(«ANS=N)  JU  lEND 
SJE  1ERR8 

- S.LE-,(AANSaY)  JU  lINLN _ 

IERR8  SPR 

SPR  please  type  'y*  or  'N*... 

- SJU-JRESTA6 . . . -  . - _ _ 

SPR 

lENO  SUP 

- SPR _ ^ _ 

SPR  WOULD  YOU  LIKE  TO  EDIT  ANOTHER  RELATION?  (Y/N) 

IRESTT  SSR.I  AANS 

- SXF-,  ( «ANSafa._SJU .  JENOl _ u_ 

SJE  lERRRa 

SIF,(«ANSSY)  SJU  IBEGIN 

iSOBRa _ SPR _ 

SPR  please  type  in  'Y'  or  'N*,,, 

SJU  RESTT 

lENOl - - - 


IDENTIFICATION  DIVISION, 

PROGRAM-ID. 

- C-R&A4^E-A-NE>»-RELATIONr- 


AUTHOR. 

ARTHUR  ROBERTS  JR, 

-DA-TE«wRI-TTEN^. - 

MARCH  10»  1982, 

date-compiled. 


ENVIRONMENT  DIVISION, 

- 00»VFI&URATlQ»»^  SECTION.  - 

SOURCE-COMPUTER.  HARRIS-123. 
OBJECT-COMPUTER.  HARRIS-123. 


INPUT-OUTPUT  SECTION. 

FILE-CONTROL, 

^ELECT-UNI-T-OWUT-FILE  ASSIGN-^ OUTF ILE-"  , - 

SELECT  UNIT-INDEX-FILE  ASSIGN  "INDEXLOG" 
ORGANIZATION  IS  RELATIVE 

- ACCESS  MODE  IS  SE-00E-NT4J1L - 

RELATIVE  KEY  IS  REC-POS. 


- OAT-A-ai-ViaiON.— - - 

file  SECTION, 

FO  unit-output-file 


01 


OUT-REC. 
02  FILLER 


PIC  X(80), 


FD  unit-index-file 

DATA  RECORD  IS  INDEX-REC, 

44 - IJ>t&EX-CEC, - 

02  REL-NAME  pic  X(8). 

02  INFOMAT  PIC  X(99l), 


WORKING-STORAGE  SECTION, 

77  REC-POS  PIC  9(5)  VALUE  1. 

77  TREL-NAME - PIC  X(&.)-  VALUE  SPACE 

77  CONDI  PIC  X(l)  value  "N", 


01  nUTP'IT-O^T *  ■ 


02  data-line, 

03^FILLER  PIC  X(991) 


VALUE  SPACES. 


03  FILLER 
03  NO-CF-ATT 
4)S_CCC-C£--) 

0«  FILLER 
04  ATT-NAME 
- 04  FILLER - 


PIC  X, 

PIC  X(3), 

•QRS  "ja 

PIC  X, 

PIC  X(20), 
_P_IC_X,. - 


04  BEG-C 
04  FILLER 
.  _  04  ENO-C- 
03  FILLER 


PIC  X(3). 
PIC  X. 

•  PIC  X(31,^ 
PIC  X. 


44 - WOBtC-AREA, - 

02  BEG-COLUMN  pic  999  VALUE  0. 

02  END-COLUMN  PIC  999  VALUE  0. 

02  COLUMN-L, 

04  C-1 


PIC  X 


\ 


V 


02  hOLO-C 
02  SUB 

- 

02  hold, 
03  H-1 
-  as  H-2 
03  M-3 


- XXX - -S<*ACfcS^.- 

PIC  999  value  0, 

PIC  999  VALUE  0. 

Pt€-99 - VALO&-  O4 - 


PIC  X  value  spaces, 
PIC  -)t  VALUE  SPACES. 
PIC  X  VALUE  SPACES. 


- fM»QC£DUP&  &IA^18I0IV-. - 

PROCESS-CONTROL. 

OPEN 

- Q  P  U-T-UN  IT-QUTP  U  T-M  L  £ - 

I-Q  UNIT-INOEX-FILE. 


CLOSE 

- UfrU-T-OW^PUT-FILE - - - 

UNIT-INOEX-FILE. 

- STOP-  -RUN-, - 

MAIN-ROUTINE, 

- MOVE— "  NJ'-^TC-CCm&S. - - - — - - - 

display  "INPUT  RELATION  NAME  ?  ", 

DISPLAY  •  THIS  NAME  CAN  ONLY  BE  8  CHARACTERS  LONG.". 

- frlOPLAV-*^ - NO— SPEGSAO-CHARACTERS-OR-HLJUJKS.-"-.- - 

ACCEPT  TREL-NAME  FROM  TERMINAL, 

_ displa y  "  " « _ _ _ _ _ _ 

DISPLAY  "RELATION  NAME  ssas>  »,  TREL-NAME.  • 

DISPLAY  "  ". 

- 04SPLAY— ?4-S--mi0-PvF-0RM^I0N--C0RRECT--?- - (-Y-OR-  Na-"-. - 

display  "  ", 

ACCEPT  RES  EROM  TERMINAL. 

- IF-RES  - - r -  - - - 

DISPLAY  "  OK  • 

PERFORM  CHECK-RELATION-NAME  THRU  CHECK-RELATION-NAME-EXIT 

- perform  .CUJSE-0P^AL-F-I4E - 

IF  CONDI  3  "Y" 

DISPLAY  "-ERROR  RELATION  "  TREL-NAME  "  ALREADY  EXISTS" 

- &G-TO  ■MAIN»RQOT-tNE- - - - 

ELSE 

NEXT  SENTENCE 

- EtSi - 

DISPLAY  "****♦  ERROR  *****" 

GO  TO  MAIN-ROUTINE. 


MAIN. 

PERFORM  blank-display  5  TIMES. 

DISPLAY 

•THERE  CAN  NOT  BE  MOPE  THAN  3«  ATTRIBUTES', 
- ACCEPT  -COL UMN-L  FROM  TERMINAL-. - 

MOVE  0  TO  NUM, 

- IN8PC6T-C0LUMN«L  TALCY INC-NOM  AOR  ACL^J  ■ 

IF  NUM  3  0 

MOVE  COLUMN-L  TO  NO-OF-ATT 
ELSE 

IF  NUM  *  I 


IF  NUM  s  2 

f'CVE  C-l  TO  H-3 

- move  " 0 HM - 

f'CVE  HOLD  TO  NQ-OF-ATT 
ELSE 

- move  COLUMN-L-TO  +IOLO  -  - 

HOVE  HOLD  TO  NO-OF-ATT, 

- O-I  SPLAT-" — - 

DISPLAY  "  ", 

DISPLAY  "  ", 

- GREATER  THAN  '034'  - 

display  '*•  TO  MANY  ATTRIBUTES  ===>  '  NU-OF-ATT 
DISPLAY  •****  ERROR  ***** 


IF  NO-OF-ATT  NOT  NUMERIC 

- ai^PLAY -  -  -  - - 

"NUMBER  OF  ATTRIBUTES  MUST  BE  NUMERIC  ==s>  ", 
NO-OF-ATT 

60  TO  MAIN 
ELSE 

- frIGPL  AY -"NUMBER  OF  ATTRI8UTES--i==>  "  ■  NU-OF--ATT , 


DISPLAY  " 

display  "i 

ACCEPT  RES  FROM  TERMINAL. 

IF  RES  a  "Y" 

- DISPLAY  OK  "  - 

ELSE 

IF  RES  a  "N" 

- display  -"aaa*j> _ ERftOR.. 


-*■**.*.*?- 


GO.  TO  main 

ELSE 

- display  ."EXPECIl-NG-LY  XR  NI-." - 

display  "*•***  ERROR  ****** 

'  GO  TC  MAIN. 


PERFORM  MAIN-l  THRU  MAIN-EXIT 
varying  sub  from  1  BY  I 
- U^-T^X-SUa-GREATtR-THAN.-  5A  XR- 


8U8  GREATER  THAN  NO-OF-ATT, 


-MQVe-TaEL»NAME  TO  REL-NAWE, 


WRITE  CUT-REC  FROM  REL-NAME, 
WRITE  OUT-REC  FROM  NO-OF-ATT. 
-PERFXRM— WRITX-ROUTINE _ 


VARYING  SUB  FROM  1  BY  1  UNTIL 

SUB  GREATER  THAN  34  OR 

SUB  greater  TMAN-NQ-OF-ATt^ - 


MOVE  OATA-LINE  TO  INFOMAT. 


— WftIXE- INDEX -RECORO^- 


WRITE  INOEX-REC  INVALID  KEY  GO  TO  COMPUTE-RECORO-POS I T ION 
GO  TO  MAIN-ROUTINE-EXIT, 


COMPUTE-RECORD-POSITION, 

COMPUTE  REC-POS  a  REC-POS  ♦  1. 
GO  TO  WRITE-INDEX-RECORD, 


AT  END 

GO  TC  check-relation-name-exit. 


IF  REL-NAME  =  TREL-NAME 
MOVE  "Y"  TO  CONDI 
- . ELSE  -- 

GO  TO  CHECK-RELATION-NAME. 
CHECK-RELA  WN-N AME-EX I T . 

— GtG5E-0PEN-EILE-w - 

CLOSE  UNIT-INOEX-FILE. 

OPEN  I-O  UNIT-INOEX-FILE. 


MAIN-1 , 

PERFORM  blank-display  20  TIMES. 

- -a^tSPtVLY— "-AT-T-RI8UTE— #-»  ,-SU8^-'?  --REOUE5TEO  - %—NO-OF-A^TT. - 

DISPLAY  "  ". 

DISPLAY 

display  'fcr  attribute  name  s=s>  B‘. 

DISPLAY  ' 

- D-^SPL-A^-^K-R  ATTRl&4iTE-L£N€4H  -s^>-NUM8ER-0F--SfiACES-S- - 

display  ' 

DISPLAY  • 

- DISPLA-Y  '  - 

DISPLAY  "INPUT  ATTRIBUTE  NAME  ?  ". 

DISPLAY  "THIS  NAME  CAN  BE  A  MAX  OF  20  CHARACTERS". 

display  •  ". 
display  "  ". 

DISPLAY  "13  THIS  INFORMATION  CORRECT  ?  (Y  OR  N)". 

- 0-ISPL4Y-^-V - — - 

ACCEPT  RES  FROM  TERMINAL. 

IF  RES  a  "Y" 

- M SPLAY  "  OK  " - 

ELSE 

IF  RES  s  "N" 

- **  *•-*-  -E RROR  --  **  » >t*-" - - 

GO  TC  MAIN-1 
ELSE 

- M-SRLA-Y  "EXPECTING  (Y  OR  N)" - 

DISPLAY  "****♦  ERROR  ****♦" 

GO  TC  MAIN-1. 


MAIN-2. 

PERFORM  blank-display  5  TIMES. 

- IF  EN0-C0WI^-4^E-A-T€B  THAN  R»R - 

MOVE  99  TO  SUB 
display 

- 1***-  RECOR&  MAS  REACHED  MAXIUM-LE-^'.&mT  -*^**^1 - 

GO  TO  main-exit. 

- DISPLAY  "ATTRIBUTE  >  ",  SUB,  " - REDUE-STEO - ">  NO-OF*ATT, 

display  "  ", 

display  'INPUT  ATTRIBUTE  LENGTH  ?  '. 


ACCEPT  CCLUMN-L  FROM  TERMINAL 


IF  NUM  =  1 

- (*OV€  - 

MOVE  C-1  TO  H-2 
MOVE  "0"  TO  M-1 

- MOVE  HOkD  TO  COLUMM-4. 

ELSE 

IF  MM  3  2 

- MOVE-G-4— T6~>+--3 -  - 

MOVE  "0"  TO  H-2,  H-l 
MOVE  HOLD  TO  COLUMN-l, 


DISPLAY  "  ", 

DISPLAY  "  ", 


IF  COLUMN-L  NOT  NUMERIC 
DISPLAY 

- ?COLyMN-L£NGTH-HAS  TO  BE  J  NUMERIC  CHARACTERS 

COLUMN-L 

display  ERROR  it****" 

- 60  TO  MAlNm2 - 

ELSE 

MOVE  NEXT-COLUMN  TO  BEG-CCLUMN»  HOLD-C 

- MOVE-COLUMN-l^  TO-COLUMN-LEN.  -  -  _ 

ADD  COLUMN-LEN,  BEG-COLUMN  GIVING  NEXT-COLUMN 
SUBTRACT  I  FROM  NEXT-COLUMN  GIVING  END-COLUMN. 


DISPLAY 

"ATTRIBUTE  NAME  =2s>  ",  ATT-NAME  (SUB), 

—  COLUMN  LENGTH  sss.>  COLUMN-LEN, - - 

DISPLAY  "  ", 

display  "starting  POSITION  sss>  ",  BEG-COLUMN, 

-5 - ENDING  POSITION  sss>  ",  END-COLUMN. — - 

display  "  ", 

DISPLAY 

J! - NEXT— A-VAILABLE-POSX-TLON — sssss.V_1,_N£XT--C0LUMN 

DISPLAY  "  ", 

&I-SPLAY  "13  THIS  LNF-QRHA-T lON-CORRECI-? - U-QR  -N).", 

ACCEPT  RES  FROM  TERMINAL, 

IF  RES  =  "Y" 

- OtSP  L  AT-J!-  -  M — ? - ^ - 

ELSE 

IF  RES  =  "N" 

- MOVE  KCLD-C- TO  -NEXT-COLUMN - 

display  "*****  ERROR  *****" 

60  TC  main-2 

- else - 

MOVE  HCLO-C  TO  NEXT-COLUMN 

display  "EXPECTING  (Y  OR  N)  " 

- display  _ ERROR _ *.**JULf _ _ 

GO  TC  main-2, 

— IF-  ATT-NAME  CSU8)^-i-"ai? - — - 

GO  TO  main-1 
ELSE 

- M0VE-BE6iC0LUMN..-T0  8EC-C  (SUB) - 

MOVE  END-COLUMN  TO  END-C  (SuB), 


— - - 

WRITE  OUT-REC  FROM  ATT-NAME  (SUB). 
write  OUT-REC  FROM  BEG-C  (SUB), 
- Wft  H-E-6t)f«ftE  C-F^ROMr  EN  SUt^)-. - 


EOF 


END 

DATE 

FILMED 

9-83 

OTIC 


